0 REM << CD43-2 >>
1 REM ==================================
2 REM    COMMODARES PROBLEM #39-2 :
3 PRINT"[147]   [197]LECTRIC [208]OWER 1"
4 REM    SOLUTION BY
5 REM    SCOTT DUNCAN
6 REM ==================================
10 R=2.79
20 FOR I=1 TO 3:READ U(I),R(I): NEXT I
30 DATA 600, .0928, 90, .1052, 12, .1259
40 INPUT "INITIAL, FINAL METER READINGS";U1,U2 : U=U2-U1
50 FOR I=1 TO 3
60 J=U-U(I)
70 IF J>0 THEN R=R+J*R(I) : U=U-J
80 NEXT
90 PRINT R "IS DUE"